15 PRINT"[147]"CHR$(142)"":POKE53281,0:POKE53280,0
17 :
18 :REM  LOAD FILES
19 :
20 POKE52,55:POKE56,55
30 SYS57812"EL FONT",8,0:POKE780,0:POKE781,0:POKE782,56:SYS65493:POKE53272,30
40 PRINT"    [152] ANOTHER KNEES[146] CALHOON[146] [152]DEBACLE"
50 SYS57812"EL SPR",8,0:POKE780,0:POKE781,0:POKE782,55:SYS65493
60 SYS57812"SS 1990.EM",8,0:POKE780,0:POKE781,60:POKE782,3:SYS65493
70 SYS57812"BASIC PLAYER.O",8,0:POKE780,0:POKE781,254:POKE782,203:SYS65493
80 SYS57812"M.ELEVATOR",8,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
90 SYS57812"W.ELEVATOR",8,0:POKE780,0:POKE781,104:POKE782,207:SYS65493
100 POKE53265,9:GOSUB1500:PRINT"[147]":POKE53281,0
110 OPEN15,8,15,"R0:SWAT TEAM=SWAT TEAM":INPUT#15,ER:CLOSE15:IFER<>63THEN450
150 OPEN3,8,3,"SWAT TEAM,S,R"
160 INPUT#3,SW:FORI=1TOSW
165 INPUT#3,MV(I):MV$(I)=STR$(MV(I))
170 INPUT#3,SW$(I)
180 NEXT:CLOSE3:GOTO450
187 :
188 :REM  SUBROUTINES
189 :
190 PRINTTAB(18)"[158][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]
200 [153][163]18)"(null) F1 CLRSURRENDER      SYS(null)
210 PRINTTAB(18)"[221] F3 [156]TAKE BACK MOVE [158][221]
220 [153][163]18)"(null) F5 CLRSEE SWAT TEAM  SYS(null)
230 PRINTTAB(18)"[221] F7 [156]GO TO LOADSTAR [158][221]
240 [153][163]18)"(null) S  CLRTOGGLE MUZAK   SYS(null)
245 PRINTTAB(18)"[221] H  [156]HELP SCREENS   [158][221]
250 [153][163]18)"-LENLENLENLENLENLENLENLENLEN=LENLENLENLENLENLENLENLENLEN<
260 PRINTTAB(18)"[221][156] FLOORS  [158][221]  [156]MOVES  [158][221]
270 [153][163]18)"(null)    CONT0SYS    (null)    CONT0SYS    (null)
280 PRINTTAB(18)"[202][195][195][195][195][195][195][195][195][195][177][195][195][195][195][195][195][195][195][195][203]
290 [142]
300 [153]"LOADCLR(null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$"
310 [129]I[178]0[164]22:[153]"(null)"[163]38)"(null)":[130]
320 [153]"MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)"
330 [142]
332 [141]300
334 [153]"FOR   S W A T    T E A M S T E R S"
335 [129]I[178]1[164]SW[169]2
336 [153][163]1)"OPEN"MV$(I)[163]5)"CONT"SW$(I);
337 [153][163]19)"OPEN"MV$(I[170]1)[163]23)"CONT"SW$(I[170]1)
338 [130]
339 [151]214,22:[153]:[153][163]2)"SYSPRESS ANY KEY TO RESUME THE ASSAULT"
340 [151]198,0
341 [161]A$:[139]A$[178]""[167]341
342 [142]
350 [151]198,0
355 [161]A$:[139]A$[178]""[167]355
360 [142]
370 [151]214,22:[153]:[153][163]20)" SURRENDER? (Y/N)ON"
380 [161]K$:[139]K$[179][177]"Y"[175]K$[179][177]"N"[167]380
385 [153][163]20)"                 ON"
390 [139]K$[178]"N"[167][142]
400 F1[178]1:[142]
410 [151]214,22:[153]:[153][163]20)"TO LOADSTAR (Y/N) ON"
420 [161]K$:[139]K$[179][177]"Y"[175]K$[179][177]"N"[167]420
425 [153][163]20)"                 ON"
430 [139]K$[178]"N"[167][142]
440 F7[178]1:[142]
447 :
448 :[143]  SETUP
449 :
450 [153][199](142):[151]53272,30
460 [134]D%(11,5)
470 V[178]53248:[151]2040,220:[151]2041,221:[151]V[170]39,1:[151]V[170]40,1
480 [151]2042,220:[151]2043,221:[151]V[170]41,12:[151]V[170]42,12
490 [151]V[170]29,0:[151]V[170]27,15
500 TP$[178]"(null)LENLENLEN=LENLENLEN=LENLENLEN=LENLENLENRIGHT$"
510 M1$[178]"(null)   (null)   (null)   (null)   (null)"
520 M2$[178]"-LENLENLEN(null)LENLENLEN(null)LENLENLEN(null)LENLENLEN<"
530 BT$[178]"MID$LENLENLEN>LENLENLEN>LENLENLEN>LENLENLEN(null)"
540 [129]I[178]0[164]3:[135]B$(I):[130]
550 [131]"FN THEN","FN THEN","FN THEN","CLRFN THEN"
560 N%(1)[178]5:N%(2)[178]2:N%(3)[178]6:N%(4)[178]4
570 [151]53265,9:[153]"LOADPRINT#"TP$:SC[178]0:G[178]0:SN[178]1
580 [129]I[178]0[164]9:[153]M1$:[153]M2$:[130]
590 [153]M1$:[153]BT$
600 [153]""
640 [129]I[178]0[164]3:[129]J[178]0[164]3
650 [151]214,15[170]2[172]J:[153]
660 [153][163]1[170]I[172]4)B$((J[170]I)[175]3)
670 [130]:[130]
680 [153]"DEF"
690 [153][163]17)"(null)LENRIGHT$RIGHT$ (null)LENRIGHT$RIGHT$(null)(null)LENRIGHT$(null)=RIGHT$(null)LENRIGHT$(null)LENRIGHT$"
700 [153][163]17)"-< (null) -< (null)(null)-LEN< (null) (null) (null)-=(null)"
710 [153][163]17)"MID$LEN(null)MID$(null)MID$LEN(null)MID$(null)> > > MID$LEN(null)>MID$<"
720 [153][163]21)"(null)RIGHT$(null)RIGHT$RIGHT$ (null)(null)LENRIGHT$=(null)LENRIGHT$
730 PRINTTAB(21)"[221][221][221][221][221] [221][202][195][201][221][221]
740 [153][163]21)"(null)MID$(null)(null)(null) (null)  (null)(null)(null)
750 PRINTTAB(21)"[203]  [202][202][195][203][202][195][203][177][202][195][203]
760 [153][163]19)"HELP OPENFENDERWAIT TUCKER"
765 [153][163]18)"DEFREGAIN THE PENTHOUSE"
770 [141]190
780 [129]I[178]0[164]10:[129]J[178]0[164]3:D%(I,J)[178]0:[130]:[130]:[143] CLEAR GRID
790 [129]I[178]0[164]3:[129]J[178]0[164]3:D%(I,3[171]J)[178]((2[171](J[170]I))[175]3)[170]1:[130]:[130]: [143]  SET UP
800 [151]53265,27:[158]52222,16384
807 :
808 :[143]  LOOP
809 :
810 X[178]0:Y[178]0:F1[178]0:F3[178]1:F7[178]0:MV(SW[170]1)[178]0
820 [151]V,27[170]X[172]32:[151]V[170]1,224[171]Y[172]16:[151]V[170]2,36[170]X[172]32:[151]V[170]3,224[171]Y[172]16
840 E[178]0:[129]J[178]0[164]3:[139]D%(Y,J)[167]E[178]E[170]1
850 [130]
860 [139]Y[170]E[177]10[167]960
870 [139]D%(Y[170]E,X)[167][151]V[170]21,3:[137]970
880 [129]I[178]0[164]3:[139]D%(Y[170]E,I)[178]D%(Y,X)[167]I[178]3:[130]:[137]960
890 [130]
900 [139]E[179][177]1[167]940
910 F[178]0:[129]I[178]10[164]Y[170]1[169][171]1:[129]J[178]0[164]3:[139]D%(I,J)[178]D%(Y,X)[167]F[178]1
920 [130]:[130]
930 [139]F[178]0[167]960
940 [151]V[170]4,[194](V):[151]V[170]5,[194](V[170]1)[171]E[172]16:[151]V[170]6,[194](V)[170]9:[151]V[170]7,[194](V[170]3)[171]E[172]16
950 [151]V[170]21,15:[151]V[170]41,N%(D%(Y,X)):[151]V[170]42,N%(D%(Y,X)):[137]970
960 [151]V[170]21,3
970 [151]198,0:[153]""
980 [161]A$:[139]SN[167][139][194](2)[178]255[167][158]52222,16384
990 [139]A$[178]""[167]980
1000 [139]A$[178]"S"[167]SN[178]1[171]SN:[139]SN[167][158]52222,16384
1010 [139]SN[178]0[167][158]52225
1015 [139]A$[178]"F"[167]FT[178]1[171]FT:[151]53272,30[171]9[172]FT:[137]980
1020 [139]A$[178]"LET"[167][141]410:[139]F7[167]1450:[143] TO LOADSTAR
1030 [139]A$[178]"INPUT"[167][141]370:[139]F1[167]1260:[143] SURRENDER
1040 [139]A$[178]"READ"[167][151]V[170]21,0:[158]828,1:[141]332:[158]831,1:[137]820:[143] F5 SWAT TEAM
1050 [139]A$[179][177]"H"[167]1070:[143]  HELP
1060 [151]V[170]21,0:[158]828,1:[158]831,2:[141]350:[158]831,3:[141]350:[158]831,1:[137]820
1070 [139]A$[178][199](13)[175][194](V[170]21)[178]15[167]1160
1080 [139]A$[179][177]"DIM"[167]1110:[143] TAKE BACK MOVE
1090 [139]F3[167]1110
1095 MV(SW[170]1)[178]MV(SW[170]1)[171]1
1100 [158]831,1:D%(YY,XX)[178]D%(YY[170]EE,XX):D%(YY[170]EE,XX)[178]0:X[178]XX:Y[178]YY:F3[178]1:SC[178]SS:[137]820
1110 [139]A$[178]""[167]Y[178]Y[171]1:[139]Y[179]0[167]Y[178]10
1120 [139]A$[178]"ON"[167]Y[178]Y[170]1:[139]Y[177]10[167]Y[178]0
1130 [139]A$[178]""[167]X[178]X[170]1:[139]X[177]3[167]X[178]0
1140 [139]A$[178]"CMD"[167]X[178]X[171]1:[139]X[179]0[167]X[178]3
1150 [137]820
1157 :
1158 :[143]  MAKE MOVE
1159 :
1160 [158]828,1:[151]214,21[171]2[172]Y:[153]:[153][163]1[170]X[172]4)"   "
1165 MV(SW[170]1)[178]MV(SW[170]1)[170]1:MV$(SW[170]1)[178][196](MV(SW[170]1))
1170 [151]214,21[171]2[172]Y[171]2[172]E:[153]:[153][163]1[170]X[172]4)B$(D%(Y,X)[171]1):YY[178]Y:XX[178]X:EE[178]E
1180 D%(Y[170]E,X)[178]D%(Y,X):D%(Y,X)[178]0
1190 [151]V[170]21,0:SS[178]SC:F3[178]0
1200 SC[178]0:[129]I[178]0[164]3:[129]J[178]0[164]3
1210 [139][194](1106[170]I[172]4[170]J[172]80)[179][177]32[167]SC[178]SC[170]1
1220 [130]:[130]
1225 SG[178]SC[172].25:SG$[178][200]([196](SG),5)
1230 [151]214,20:[153]:[153][163]19)"         SYS(null)         ON"
1235 [153][163]23[171][195](SG$)[173]2)"CONT"SG$;[163]32[170](MV(SW[170]1)[177]9))MV$(SW[170]1)
1240 [139]SC[178]16[175]SW[179]30[167][151]V[170]21,0:[137]1270
1250 [137]820
1260 [151]V[170]21,0:[158]52225:[139]SC[179]16[167]570
1270 [151]214,12:[153]
1280 [153][163]19)"SYS CONGRATULATIONS!  "
1285 [153][163]19)"  YOU RECAPTURED   "
1290 [153][163]19)"  THE PENTHOUSE!   "
1300 [153][163]19)"                   "
1320 [153][163]19)"  ENTER YOUR NAME  "
1330 [153][163]20)"                  ON"
1340 [153][163]22);:[141]1830
1350 SW[178]SW[170]1:SW$(SW)[178]Q9$
1360 [159]15,8,15,"I0"
1365 [152]15,"S0:SWAT TEAM":[160]15
1370 [159]3,8,3,"SWAT TEAM,S,W"
1380 [152]3,SW
1390 [129]I[178]1[164]SW
1395 [152]3,MV$(I)
1400 [152]3,SW$(I)
1410 [130]:[160]3:[139]F5[167]F5[178]0:[137]820
1420 [151]214,22:[153]:[153][163]20)"TRY AGAIN? (Y/N)"
1430 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]1430
1440 [139]A$[178]"Y"[167]570
1450 [151]V[170]21,0:[151]53272,21:[158]52225
1455 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
1460 [139]ER[179][177]63[167][153]"LOAD":[151]53272,21:[128]
1470 [153]"LOADSTOPLOAD"[199](34)"HELLO CONNECT"[199](34)",8"
1480 [153]"RUN"
1490 [151]631,13:[151]632,13:[151]198,2:[128]
1500 [143]
1510 [141]300
1520 [153]"FORE L E V A T O R    M U S I C"
1530 [153]"CONTTRY TO WIN BACK THE TOWER PENTHOUSE"
1540 [153]"BY MOVING THE ELEVATORS FROM THE
1550 PRINT"BOTTOM FOUR FLOORS TO THE TOP FOUR."
1560 PRINT"THERE ARE THREE RULES.
1570 [153]"PRINT#(1PRINT#) OPENTHE NUMBER OF FLOORS AN ELEVATOR"
1580 [153]"CAN MOVE IS EQUAL TO THE NUMBER OF"
1590 [153]"ELEVATORS ON THE FLOOR IT'S ON."
1600 [153]"PRINT#(2PRINT#) OPENAN ELEVATOR CANNOT MOVE TO A"
1610 [153]"FLOOR THAT HAS A SIMILARLY COLORED"
1615 [153]"ELEVATOR ALREADY ON IT."
1620 [153]"PRINT#(3PRINT#) OPENAN ELEVATOR CANNOT MOVE UP A"
1630 [153]"SINGLE FLOOR IF IT IS THE HIGHEST"
1640 [153]"ELEVATOR OF ITS COLOR IN THE TOWER."
1650 [153][163]9)"SYSPRESS ANY KEY FOR MORE"
1670 [158]828,2
1680 [141]300
1690 [153]"FORE L E V A T O R    M U S I C"
1692 [153]"CONTTHE ELEVATOR "[199](34)"CURSOR"[199](34)" IS WHITE.  ANY
1694 PRINT"LEGAL MOVE IS INDICATED BY A COLORED"
1696 PRINT"'SHADOW' ELEVATOR.
1700 [153]"CONTUSE THE CRSR KEYS CONTTO MOVE THE
1710 PRINT"INDICATOR TO THE ELEVATOR YOU WANT
1720 [153]"TO TAKE AND PRESS RETURNCONT TO MAKE
1730 PRINT"YOUR MOVE.
1740 [153]"PRESS F1CONT WHEN THERE ARE NO MORE MOVES
1750 PRINT"LEFT, OR IF YOU SEE YOUR SITUATION
1760 [153]"IS HOPELESS."
1770 [153]"PRESS FCONT TO CHANGE THE FONT."
1780 [151]214,22:[153]:[153][163]2)"SYSPRESS ANY KEY TO RESUME THE ASSAULT"
1790 [158]828,3
1800 [142]
1810 [137]1810
1830 Q9$[178]"":[151]198,0
1840 [161]A$
1850 [151]646,[187](1)[172]15[170]1:[153]"TOCMD";:[139]A$[178]""[167]1840
1860 [139]A$[178][199](13)[167][153]" ":[142]
1870 [139](A$[178][199](20)[175][195](Q9$))[167]Q9$[178][200](Q9$,[195](Q9$)[171]1):[137]1920
1880 [139][195](Q9$)[177][178]13[167]1840
1890 [139]A$[179]" "[176](A$[177][199](127)[175]A$[179][199](160))[176]A$[178][199](34)[167]1840
1900 Q9$[178]Q9$[170]A$
1910 [153]""A$;:[137]1840
1920 [153]" CMDCMD";:[137]1840
10000 [159]15,8,15,"S0:ELEVATOR MUSIC":[160]15:[148]"ELEVATOR MUSIC",8:[128]